xx <- seq(12, by=-2, length.out = 17)
plot(xx %% 17, col=rainbow(6), pch=22, cex=c(2,3,4), xlab="", ylab="")
grid()
